perm filename MISMAC.POX[POX,WD]1 blob sn#363247 filedate 1978-06-18 generic text, type T, neo UTF8
\;		  Epsilon and Lambda Setting Macro
\;
\8EPSILONLAMBDASET(EPS,LAM)[\N
\	;\←=⊗EPS⊗;\ε\←=⊗LAM⊗;\λ\;]\;		set ε to EPS and λ to LAM
\;
\;
\;				Paragraph Macro
\;
\∞PARA[\J	]\;			justify paragraph
\;
\;
\;			     Font Selection Macros
\;
\8DF(STR)[\#\F3⊗STR⊗\G]\;		font for defined terms
\;
\8NM(STR)[\#\F2⊗STR⊗\G]\;		font for numeric terms
\;
\8FW(STR)[\#\F2⊗STR⊗\G]\;		font for foreign words
\;
\8EM(STR)[\#\F2⊗STR⊗\G]\;		font for emphasis
\;
\8VE(STR)[\#\F3⊗STR⊗\G]\;		font for vectors
\;
\8ORD(STR)[\!JSUP(⊗STR⊗);]\;		ordinal notation
\;
\;
\;				Overline Macro
\;
\8OL(STR)[\P\←=0;\-h\-=4;\[∀=2;⊗STR⊗\]\p]\;
\;
\;
\;		     Superscript and Subscript Macros
\;
\8JSUB(A)[\P\#\←h\/=2;\Q,\¬,\→,\F6⊗A⊗\q,\G\p]\;
\;
\8JSUP(A)[\P\#\←h\/=2;\Q,\+,\→,\F6⊗A⊗\q,\G\p]\;
\;
\;
\;			  Permutation Macro
\;
\8PERM5(1,2,3,4,5)[(1→⊗1⊗,2→⊗2⊗,3→⊗3⊗,4→⊗4⊗,5→⊗5⊗)]\;
\;
\;			  Combination Macro
\;
\8COMBS(N,K)[\!JSUB(⊗N⊗);\f5C\!JSUB(⊗K⊗);]\;
\;
\;			  Summation Macro
\;
\8SIGMA(INDEX,SUMMAND)[\fCS\!JSUB(⊗INDEX⊗);⊗SUMMAND⊗]\;
\;